home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / smlnet1f.arc / MYSETUP.ARC / BINKLEY.BAT next >
Encoding:
DOS Batch File  |  1989-06-19  |  4.1 KB  |  193 lines
  1. REM
  2. REM   H:               - Ramdrive where I put most of my .EXE and .COM files
  3. REM   G:\Mail             - Contains all Qmail and related files
  4. REM   F:\Binkley          - Contains Binkley, ParseLst
  5. REM   F:\Binkley\Files    - Inbound file directory
  6. REM   F:\Binkley\Messages - Netmail subdirectory
  7. REM   F:\Rbbs\Net         - Location of Smlnet and related files
  8. REM
  9.  
  10. :Start
  11. F:
  12. CD \BINKLEY
  13. H:BT
  14.  
  15. If ErrorLevel 100 GoTo END
  16. If ERRORLEVEL  96 goto GETRBBS
  17. If ErrorLevel  90 Goto HoldMail
  18. If ErrorLevel  80 Goto Daily
  19. If ERRORLEVEL  72 goto GETRBBS
  20. If ErrorLevel  70 Goto ClearOut
  21. If ErrorLevel  60 Goto Local
  22. If ErrorLevel  50 GoTo Weekly
  23. If ERRORLEVEL  48 goto GETRBBS
  24. If ErrorLevel  40 Goto NightMail
  25. If ErrorLevel  30 Goto InputMail
  26. If ERRORLEVEL  24 goto GETRBBS
  27. If ErrorLevel  20 Goto SendMail
  28. If ErrorLevel  16 Goto SmlCall
  29. If ErrorLevel  15 Goto SI2Exp
  30. If ERRORLEVEL  12 goto GETRBBS
  31. If ErrorLevel  10 goto check
  32. If ERRORLEVEL   3 goto GETRBBS
  33. IF ErrorLevel   1 goto END
  34. goto start 
  35.  
  36. :GETRBBS
  37. F:
  38. cd \binkley
  39. BBSBatch
  40. GoTo Start
  41.  
  42. :Local
  43. F:
  44. cd\rbbs
  45. H:RBBS-PC 3
  46. Goto Start
  47.  
  48. :InputMail
  49. G:
  50. CD\MAIL
  51. del echotoss.log
  52. H:QM TOSS SCAN -fECHOTOSS.LOG -cQM.CFG -sSEND_MAIL
  53. H:Replylnk -f EchoToss.log
  54. H:SmlmPort F:\rbbs\net\Smlnet.cnf EchoToss.Log
  55.  
  56. del echotoss.log
  57. H:QM PACK -cQM.CFG -sSEND_MAIL
  58. If ErrorLevel 6 GoTo Start
  59. If errorlevel 5 GoTo Start
  60. If errorlevel 4 GoTo Start
  61. If ErrorLevel 3 Goto Severe1
  62. If ErrorLevel 2 Goto Severe2
  63. If ErrorLevel 1 Goto Start
  64. Goto Start
  65.  
  66. :SendMail
  67. G:
  68. CD\MAIL
  69. del echotoss.log
  70. H:QM SCAN PACK -cQM.CFG -sSEND_MAIL
  71. If ErrorLevel 6 GoTo Start
  72. If errorlevel 5 GoTo Start
  73. If errorlevel 4 GoTo Start
  74. If ErrorLevel 3 Goto Severe1
  75. If ErrorLevel 2 Goto Severe2
  76. Goto Start
  77.  
  78. :HoldMail
  79. G:
  80. CD\MAIL
  81. H:QM PACK -cQM.CFG -sHOLD_MAIL
  82. If ErrorLevel 6 GoTo Start
  83. If errorlevel 5 GoTo Start
  84. If errorlevel 4 GoTo Start
  85. If ErrorLevel 3 Goto Severe1
  86. If ErrorLevel 2 Goto Severe2
  87. Goto Start
  88.  
  89. :Severe1
  90. Beep
  91. Echo Hard Drive FULL!
  92. GoTo Start
  93.  
  94. :Severe2
  95. Beep
  96. Echo SEVERE Error In Export
  97. Goto Start
  98.  
  99.  
  100. :ClearOut
  101. Del F:\binkley\outbound\*.$*
  102. Goto Start
  103.  
  104. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  105. REM * * *     Check for incomming files
  106. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  107.  
  108. :Check
  109. F:
  110. cd\binkley\files
  111. If Exist RBBSLIST.A* GoTo Parse
  112. IF Exist SILICON.SI2 Goto SI2inp
  113. If Exist *.Pkt Goto InputMail
  114. Goto Start
  115.  
  116. :Parse
  117. F:
  118. cd\binkley\files
  119. Copy RBBSLIST.* F:\Binkley\Files\archive
  120. Pkxarc RBBSLIST.A??
  121. Del RBBSLIST.A??
  122. cd\binkley
  123. erase rbbslist.new
  124. Copy  \binkley\files\rbbslist.* rbbslist.new
  125. erase \binkley\files\rbbslist.*
  126. Parselst -Nrbbslist.new -Cparselst.cfg
  127. Goto Start
  128.  
  129. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  130. REM * * *     SI Droids II
  131. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  132. :SI2inp
  133. Goto Start
  134.  
  135. :SI2exp
  136. Goto Start
  137.  
  138.  
  139. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  140. REM * * *     Normal Tasks set by Errorlevel
  141. REM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  142.  
  143. :Smlcall
  144. F:
  145. cd\rbbs\call
  146. H:Smlcall Auto
  147. Copy Sml-Bul0 F:\Rbbs\Menu\Bulet15
  148. Copy Sml-Bul0 H:Bulet15
  149. Copy Sml-Bul1 F:\Rbbs\Menu\Bulet16
  150. Copy Sml-Bul1 H:Bulet16
  151. Copy Sml-Bul4 F:\Rbbs\Menu\Bulet14
  152. Copy Sml-Bul4 H:Bulet14
  153. Goto Start
  154.  
  155.  
  156. :Daily
  157. F:
  158. cd\binkley
  159. Del Binkley.Lo4
  160. Ren Binkley.Lo3 Binkley.Lo4
  161. Ren Binkley.Lo2 Binkley.Lo3
  162. Ren Binkley.Lo1 Binkley.Lo2
  163. Ren Binkley.Log Binkley.Lo1
  164.  
  165. GoTo Start
  166.  
  167. :Weekly
  168. G:
  169. cd\mail
  170.  
  171. GoTo Start
  172.  
  173. :NightMail
  174. G:
  175. CD\mail
  176. H:Conf3 Renum -S -D 25 G:\mail\dfw_net -R G:\mail\dfw_net
  177.  
  178. H:Conf3 Renum -S -D  7 G:\mail\FILM -R G:\mail\FILM
  179. H:Conf3 Renum -S -D  7 G:\mail\SF -R G:\mail\SF
  180. H:Conf3 Renum -S -D  7 G:\mail\SFFAN -R G:\mail\SFFAN
  181. H:Conf3 Renum -S -D  7 G:\mail\STTNG -R G:\mail\STTNG
  182.  
  183. REM H:Conf3 Renum -S -D 25 G:\mail\SMLWARE -R G:\mail\SMLWARE
  184. REM H:Conf3 Renum -S -D 25 G:\mail\WHO -R G:\mail\WHO
  185.  
  186. H:Conf3 Renum -S -D  5 G:\mail\BAD_MSGS -R G:\mail\BAD_MSGS
  187.  
  188. H:smlindex F:\rbbs\net\smlnet.cnf
  189. Goto Start
  190.  
  191. :end
  192. EXIT
  193.